home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / eggs.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  136 lines
  1. 0 :REM       ** D.MUNSHAW **
  2. 1 :
  3. 2 :REM   ORIGINAL PROGRAM  05/83
  4. 3 :REM     FOR AIMEE & FRIENDS
  5. 4 :
  6. 5 A=41:B=26:C=2:POKE53280,0:POKE53281,0:GOSUB5000
  7. 10 PRINT"[147]":FORI=1024TO1540STEP41:A=A-2:B=B-2:C=C+1
  8. 20 FORZ=0TOA:POKEI+Z+54272,C:POKEI+Z,81:NEXTZ
  9. 30 FORZ=0TO(B*40)STEP40:POKEI+A+Z+54272,C:POKEI+A+Z,81:NEXTZ
  10. 40 FORZ=(B*40+A)TO(B*40)STEP-1:POKEI+Z+54272,C:POKEI+Z,81:NEXTZ
  11. 50 FORZ=(B*40)TO0STEP-40:POKEI+Z+54272,C:POKEI+Z,81:NEXTZ
  12. 55 NEXTI:C=7:G=15:FORT=1TO12:RESTORE:C=C+8:G=G-1
  13. 60 FORD=0TO15:POKEHF,D*12:POKELF,200:READE:POKE1516+D+54272,C:POKE1516+D,E:NEXT
  14. 65 POKELF,0:POKEHF,0
  15. 70 FORD=0TO16:READE:POKE1915+D,E:NEXT
  16. 80 DATA32,5,7,7,19,32,1,18,5,32
  17. 85 DATA7,18,5,1,20,32,32,4,46,13
  18. 90 DATA21,14,19,8,1,23,32,48,53
  19. 95 DATA47,56,51,32
  20. 100 DATA81,81,81,81,81,81,81,81,81,81,81,81,81,81,81,81
  21. 110 FORD=0TO15:READE:POKE1516+D+54272,G:POKE1516+D,E:NEXT
  22. 120 NEXTT
  23. 140 PRINT"[147]":GOSUB6000:POKEV+21,1:GOSUB7000
  24. 150 REM   INSTRUCTIONS
  25. 151 :
  26. 155 PRINTTAB(15)"[158]EGGS ARE GREAT"
  27. 160 PRINT"[159] F1 [146] CLEARS SCREEN"
  28. 165 PRINT"[159] F7 [146] TO QUIT"
  29. 170 PRINT"       [159]_234567890+-\[146]"
  30. 175 PRINT"           TO CHANGE COLOURS"
  31. 180 PRINT"USE JOYSTICK PORT #2 & [150]FIRE BUTTON"    "
  32. 185 [153]"      SPACE WAIT TO ERASE"
  33. 190 [129]T[178]1[164]9000:[130]T:[153]"LOAD"
  34. 200 [143] ** MAIN ROUTINE **
  35. 201 :
  36. 240 SY[178]81:CO[178]1
  37. 250 X%[178][194](53248):Y%[178][194](53249)
  38. 252 [151]54276,65:[151]LF,0:[151]HF,0:[151]V[170]29,0
  39. 255 [139][194](53264)[175]1[178]1[167]X%[178]X%[170]255
  40. 260 Z%[178]824[170](([181]((Y%[170]5)[173]8)[172]40)[170][181](X%)[173]8)
  41. 270 [139][171](([194](56320)[175]16)[178]0)[178]1[167]341
  42. 300 A%[178][194](197):[139]A%[178]64[167]250
  43. 310 [139]A%[178]60[167]SY[178]32:S1[178]100:[151]54276,129:[137]350
  44. 320 [139]A%[178]56[167] CO[178]15:[137]250
  45. 321 [139]A%[178]59[167] CO[178]1:[137]250
  46. 322 [139]A%[178]8[167] CO[178]2:[137]250
  47. 323 [139]A%[178]11[167] CO[178]3:[137]250
  48. 324 [139]A%[178]16[167] CO[178]4:[137]250
  49. 325 [139]A%[178]19[167] CO[178]5:[137]250
  50. 326 [139]A%[178]24[167] CO[178]6:[137]250
  51. 327 [139]A%[178]27[167] CO[178]7:[137]250
  52. 328 [139]A%[178]32[167] CO[178]8:[137]250
  53. 329 [139]A%[178]35[167] CO[178]9:[137]250
  54. 330 [139]A%[178]57[167] CO[178]10:[137]250
  55. 331 [139]A%[178]40[167] CO[178]11:[137]250
  56. 332 [139]A%[178]43[167] CO[178]12:[137]250
  57. 333 [139]A%[178]48[167] CO[178]13:[137]250
  58. 334 [139]A%[178]35[167] CO[178]14:[137]250
  59. 335 [139]A%[178]4[167] [153]"LOAD":[137]250
  60. 336 [139]A%[179][177]3[167] 250
  61. 337 [153]"LOADBYE BYE CHICKADEE":[151]V[170]21,0:[151]54296,0
  62. 338 [143]
  63. 339 [128]
  64. 340 [137]250
  65. 341 SY[178]81:S1[178]10:[139][194](Z%)[178]81[167]250
  66. 350 [151]HF,S1:[151]LF,100:[151]Z%[170]54272,CO:[151]Z%,SY
  67. 360 [139]S1[177]20[167][137]250
  68. 370 [151]V[170]29,1:[129]T[178]5[164]2[169][171]1:[151]HF,S1[172]T:[130]:[137]250
  69. 5000 [143] INNIALIZE  SOUND
  70. 5001 :
  71. 5010 HF[178]54273:LF[178]HF[171]1
  72. 5020 [151]54275,2:[151]54274,100
  73. 5030 [151]54277,128:[151]54278,32
  74. 5040 [151]54296,15:[151]54276,65
  75. 5050 [142]
  76. 6000 [143] SPRITE DATA
  77. 6001 :
  78. 6010 V[178]53248
  79. 6020 [129]I[178]12288[164]12350:[135]E:[151]I,E:[130] I:[151]2040,192
  80. 6030 [151]V[170]28,1:[151]V[170]39,2:[151]V[170]37,7:[151]V[170]38,3
  81. 6050 [142]
  82. 6060 [131]0,0,0,0,0,0,0,0,0
  83. 6061 [131]0,0,0,0,0,0,0,0,0
  84. 6062 [131]2,192,0,9,128,0,10,128,0
  85. 6063 [131]14,128,0,62,128,0,2,160,1
  86. 6064 [131]0,170,4,0,42,144,0,165,168
  87. 6065 [131]0,41,96,0,42,128,0,51,0
  88. 6066 [131]0,204,192,0,0,0,0,0,0
  89. 7000 [143] ORIGINAL J.KAMINSKI 83-04-28
  90. 7001 :
  91. 7010 LO[178]12[172]16[172]256:[143] $C000
  92. 7020 [129] I[178]49152 [164] 49344:[135]J:[151]I,J:[130] I
  93. 7030 [151] LO[170]3,1 :[143] SPEED (S 1-10 F)
  94. 7040 [158] LO[170]16   :[143] ENABLE ML/JOY 2
  95. 7050 [142]
  96. 7070 [131] 150, 220, 0, 1, 1
  97. 7071 [131] 0, 0, 0, 0, 0
  98. 7072 [131] 0, 0, 0, 0, 0
  99. 7073 [131] 0, 120, 169, 32, 141
  100. 7074 [131] 20, 3, 169, 192, 141
  101. 7075 [131] 21, 3, 88, 96, 234
  102. 7076 [131] 234, 234, 8, 72, 138
  103. 7077 [131] 72, 152, 72, 234, 173
  104. 7078 [131] 0, 220, 160, 0, 162
  105. 7079 [131] 0, 74, 176, 3, 206
  106. 7080 [131] 1, 192, 74, 176, 3
  107. 7081 [131] 238, 1, 192, 74, 176
  108. 7082 [131] 13, 206, 0, 192, 174
  109. 7083 [131] 0, 192, 224, 255, 208
  110. 7084 [131] 3, 206, 2, 192, 74
  111. 7085 [131] 176, 8, 238, 0, 192
  112. 7086 [131] 208, 3, 238, 2, 192
  113. 7087 [131] 234, 173, 1, 192, 201
  114. 7088 [131] 35, 208, 3, 238, 1
  115. 7089 [131] 192, 201, 230, 208, 3
  116. 7090 [131] 206, 1, 192, 234, 173
  117. 7091 [131] 2, 192, 240, 12, 173
  118. 7092 [131] 0, 192, 201, 60, 208
  119. 7093 [131] 15, 206, 0, 192, 208
  120. 7094 [131] 10, 173, 0, 192, 201
  121. 7095 [131] 5, 208, 3, 238, 0
  122. 7096 [131] 192, 173, 0, 192, 141
  123. 7097 [131] 0, 208, 173, 1, 192
  124. 7098 [131] 141, 1, 208, 173, 2
  125. 7099 [131] 192, 240, 9, 13, 16
  126. 7100 [131] 208, 141, 16, 208, 56
  127. 7101 [131] 176, 8, 169, 254, 45
  128. 7102 [131] 16, 208, 141, 16, 208
  129. 7103 [131] 234, 206, 4, 192, 240
  130. 7104 [131] 3, 76, 39, 192, 173
  131. 7105 [131] 3, 192, 141, 4, 192
  132. 7106 [131] 104, 168, 104, 170, 104
  133. 7107 [131] 40, 76, 49, 234, 234
  134. 7108 [131] 234, 0, 0
  135. 60000 [153]"LOAD";[194](197):[137]60000
  136.